home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Developer Helper 1: Phil & Dave's Excellent CD
/
Excellent CD HFS.raw
/
Moof
/
Goodies
/
MPW Goodies
/
MPW Goodies⁄DTS
/
ProjectMenu
< prev
next >
Wrap
Text File
|
2022-08-05
|
1KB
|
37 lines
#
# Build the Project Menu
#
Set Exit 0
DeleteMenu Project ≥ Dev:Null > Dev:Null
Alias HeadersOn "∂
AddMenu Project 'Use Headers!' HeadersOff ;∂
Set ProjectHeaders 1"
Alias HeadersOff "∂
AddMenu Project 'Use Headers' HeadersOn ;∂
Set ProjectHeaders 0"
AddMenu Project 'Add Header to {Active}' 'AddChange "{Active}"'
# by default, we want to add headers
HeadersOn
AddMenu Project (- ''
AddMenu Project 'Set Project…/π' 'Execute SetProjector'
AddMenu Project 'Mount Project…/µ' 'Execute MountProjector'
AddMenu Project 'Unmount Project…' 'Execute UnmountProjector'
AddMenu Project '(-' ''
AddMenu Project 'Check {Active} Out/J' 'CheckWindowOut "{Active}"'
AddMenu Project 'Check {Active} In/I' 'CheckWindowIn "{Active}" && Close -c "{Active}"'
AddMenu Project 'Cancel {Active}' 'CancelWindowCheckOut "{Active}" && Close -c "{Active}"'
AddMenu Project "(-" ""
AddMenu Project 'Compare {Active}' 'CompareRevisions "{Active}" ∑∑ "{WorkSheet}"'
AddMenu Project 'Merge {Active}' 'MergeBranch "{Active}" ∑∑ "{WorkSheet}"'
AddMenu Project (- ''
AddMenu Project 'Check Out…' 'CheckOut -w ≥≥ "{WorkSheet}"'
AddMenu Project 'Check In…' 'CheckIn -w ≥≥ "{WorkSheet}"'
AddMenu Project 'New Project…' 'NewProject -w ≥≥ "{WorkSheet}"'
AddMenu Project (- ''
AddMenu Project 'Check Out Newer' 'CheckOut -r -update'
AddMenu Project 'Check In All Files' 'CheckinAll'
AddMenu Project 'Open Checked-Out Files' 'OpenCheckedOut'
Export ProjectHeaders
Set Exit 1